with communautes_strings_test;
with communautes_strings;
with configuration;

procedure main is
   c : communautes_strings.Communaute'Class := configuration;
begin
   communautes_strings_test.class(c);
end main;
